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FOREWORD 

The  Medical  Acquisition  Shelf-Life  (MASS)  Model  is  a  decision  aid  to 
assist  procurement  analysts  in  evaluating  alternative  bids  for  stocked 
medical  shelf-life  items.  MASS  attempts  to  identify  the  best  value 
bid  by  balancing  longer  shelf- life  against  higher  purchase  price  in 
order  to  identify  the  bid  with  the  lowest  life  cycle  costs. 

The  objectives  of  this  user's  guide  are  to  describe  the  model's 
features,  instruct  the  user  in  using  MASS,  and  explain  the  rationale 
of  the  model  to  vendors. 

ROGER  C.  ROY 

Assistant  Director 

Office  of  Policy  and  Plans 
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INTRODUCTION 


A .  Background 

In  October  1987,  LTG  Russo  hosted  a  conference  with  the  Military  Service 
Logistics  Chiefs,  the  Service  Surgeons  General,  and  Office  of  Assistant 
Secretary  of  Defense  (OASD)  (Health  Affairs),  (Logistics),  and  (Environ¬ 
ment)  to  discuss  the  Defense  Logistics  Agency  (DLA)  management  of  medical 
shelf-life  materiel.  Two  of  the  action  items  resulting  from  this 
conference  concerned  the  question  of  how  much  additional  price  the 
Department  of  Defense  should  pay  to  obtain  a  longer  shelf-life  period. 

One  of  the  action  items  was  assigned  to  OASD  (HA),  the  other  to  DLA.  The 
OASD  action  item  required  that  the  MITRE  model  be  evaluated  to  determine 
whether  it  could  be  used.  The  MITRE  model  was  developed  in  the  early 
eighties  and  was  designed  to  address  the  additional  price  for  longer  shelf- 
life  issue.  The  DLA  acCia.  item  required  that  an  entirely  new  model  be 
explored.  Both  OASD  and  DLA  evaluated  the  MITRE  model  and  concluded  that 
the  MITRE  model  had  serious  limitations  and  could  not  be  used.  As  a  result 
the  Medical  Acquisition  Shelf-Life  System  (MASS)  model  was  developed 
by  the  DLA  Operations  Research  and  Economic  Analysis  Management  Support 
Office  (DORO) . 

B.  Problem .  The  Medical  Acquisition  Shelf-Life  System  (MASS)  model 
is  a  decision  aid  to  assist  procurement  analysts  in  evaluating  alternative 
bids  for  stocked  medical  shelf- life  items.  The  idea  behind  this  model  is 
not  new.  The  model  attempts  to  identify  the  best  value  bid  by  balancing 
longer  shelf-life  against  higher  purchase  price.  Life  cycle  costs  are 
calculated  for  each  bid  by  considering  the  purchase  price,  administrative 
buy,  transportation,  handling,  storage,  disposal,  and  replacement  costs 
incurred  for  each  bid. 

C.  Ob j ec t ives .  The  objectives  of  this  manual  are  to  describe  _he 
data  update  procedures,  the  dBASE  files,  and  the  programs  which  produce  the 
MASS  files. 

D.  Scope .  This  model  is  limited  to  stocked  medical  shelf-life 
items,  i.e.  Replenishment  Demand  (Item  Category  Code  1  and  P  items). 

II .  CONCLUSIONS 

A.  MASS  is  a  decision  aid  which  can  save  money  by  considering  the 
life  cycle  costs  rather  than  just  accepting  the  low  bid. 

-  B.  MASS  can  save  time  by  automating  a  difficult  bid  evaluation  trade 
off  decision. 

C.  Since  MASS  uses  historical  data  to  calculate  costs,  the  data  base 
must  be  updated  periodically. 


1 


HI.  RECOMMENDATIONS 


A.  DORO  recommends  updating  the  MASS  data  annually. 

B.  Currently  vendors  indicate  the  shelf  life  of  their  products  only 
it  they  do  not  meet  the  minimum  shelf-life  requirement.  The  Defense 
Personnel  Support  Center  should  modify  their  bid  process  in  order  to  obtain 
shelf- life  information  for  all  medical  shelf -life  bids. 

C.  Procurement  analysts  should  not  be  legally  required  to  accept  the 
MASS  model  recommendations.  Analysts  must  be  free  to  exercise  their 

j  udgment . 

IV7.  Bi-  NEr  ITS .  The  MASS  model  calculates  cost  avoidances  by  comparing  the 
life  eye  i.e  costs  of  each  bid  to  the  life  cycle  cost  of  the  bid  that 
normally  would  have  been  selected  if  the  MASS  model  had  not  been  used. 

Based  on  our  initial  testing  of  the  model  on  actual  evaluations,  the 
average  avoidance  per  evaluation  was  $114,583.  The  Technical  Services 
Branch.,  Technical  Operations  Division,  Medical  Directorate,  Defense 
Personnel  Support  Center  (DPSC-RSTH-21)  estimated  that  the  model  would  be 
used  for  120  evaluations  per  year.  If  cite  recommendations  of  Che  MASS 
model  are  implemented,  the  Department  of  Defense  would  realize  an  estimated 
cost  avoidance  of  up  to  $13.75  million  per  year  or  a  total  net  present 
value  of  $137.5  million  using  the  standard  10  percent  discount  factor. 

V.  IMPLEMENTATION .  The  MASS  model  has  been  implemented  at  the  Defense 
Personnel  Support  Center  to  evaluate  alternative  bids  for  stocked  medical 
shelf  life  items.  Prior  to  finalizing  award  of  contracts,  DPSC-RSTH-21 
uses  the  MASS  model  to  evaluate  bids  and  make  their  recommendations  to 
procurement.  L' i’SC -RSTH  -  2 1  agreed  to  update  the  data  according  to  the 
procedures  specified  in  Section  VIII. 

VI.  MODEL  FEATURES 

MASS  allows  the  user  to  evaluate  virtually  an  unlimited  number  of  bids  for 
an  NSN  at  the  .same  time.  Additionally,  it  is  easier  to  use  because  it 
provides  NSN  character istics  that  are  derived  from  historical  data.  In 
order  to  make  : unning  the  model  as  easy  as  possible,  the  model  provides 
default  suggestions  based  on  historical  data  for  necessary  input  values. 

The  model  will  display  these  default  values  and  will  give  the  user  an 
opportunity  to  change  them. 

Also,  the  model  will  save  the  original  bid  information  to  facilitate 
investigating  "what  if"  questions.  For  example,  if  the  users  want  to 
investigate  the  effects  on  which  bid  would  be  accepted  by  changing  the 
: ranspor tat  ion  and  handling  costs,  the  model  will  save  the  bid  information 
for  them  so  that  they  can  rerun  the  model  changing  the  transportation  and 
handling  costs  as  many  times  as  they  want.  The  user  can  then  see  what  the 
affects  of  these  changes  are  on  the  life  cycle  costs  and  ranking  of  the 
bids.  Saving  the  users'  bid  information  relieves  them  of  reentering  this 
information  each  time  they  want  to  change  the  defaults. 


The  model  also  gives  the  users  the  option  to  save  their  output  to  a  disk 
file  for  use  by  other  programs  or  packages  such  as  dBASE,  LOTUS,  or  ENABLE. 
If  the  MASS  results  are  moved  to  these  packages,  reports  can  be  customized, 
combined  with  other  data,  or  graphed.  This  interface  ability  provides 
great  flexibility.  However,  some  familiarity  with  these  packages  is 
required . 

VII.  MASS  FILES.  MASS  requires  a  collection  of  program,  data  base,  index, 
configuration,  and  batch  files  to  run  properly.  These  files  must  be  loaded 
on  a  hard  disk  to  run  MASS.  If  they  are  not  loaded,  see  the  Medical 
Acquisition  Shelf -Life  System  (MASS)  Decision  Support  Model  User's  Guide 
for  loading  instructions.  Table  1  provides  a  list  of  all  MASS  files.  Each 
file  is  explained  in  more  detail  in  the  following  sections. 

Table  1 
MASS  FILES 


Program  Files 


Data  Base  Files 


Index  File 


MASS . PRG 
COMPUTE . PRG 
NSNS . PRG 
WRITE. PRG 
SCREEN. PRG 
RPT. PRG 
UPDATE. TRG 

NSN.DBF 
DEFAULTS. DBF 
RPT. DBF 
UCOST. DBF 
MASS123 . DBF 

NSN . NDX 


Configuration  Files  CONFIG. DB 

CONFIG. DB2 


Batch  Files  M . BAT 

CRASH . BAT 

'■■OR  BARER  JO!  (I'RDK)’) 


Data  Base  Ernee  s  s  i  nr.  Ei  I 
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MASS  PR.  KAMA 


MASS.PRG 


T  V  T 

NSNS.PRG  COMPUTE. PRG  WRITE. PRG 


i  i 

t  T 

SCREEN. PRG  RPT.PRG 


Updating  the  M/.  ■>  i  code  is  the  responsibility  of  the  Defense  Logistics 
Agency,  Operations  Research  and  Economic  Analysis  Management  Support  Office 
i  IXIRO )  Those  program  f i 1 .  •  r .  should  not  he  modified  without  the  permission 
<  ■  {  '  iie  bOKO  office  Meat!  only  plotter  ion  ims  been  placed  on  these  files. 

For  your  convenience,  the  UB..SE  code  for  these  program  tiles  is  listed  in 
Appendices  A  through  C. 

B.  Data  Base  Files.  NSN.DBF,  DEFAULTS . DBF ,  DPT. DBF,  UCOST.DBF,  and 
M.ASS123.DBF  are  the  MASS  data  base  files  NSN.DBF  carries  item 
"Laracteristics  and  demand  pattern  data  for  each  National  Stock  Number. 
DEFAULTS . DBF  has  only  one  record.  It  contains  default  values  for  NSNs  not 
found  in  the  NSN  data,  expandability  data,  system-wide  costs,  and 
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parameters  *  •  equations.  RPT.DBF  and  UCOST .  DBF  are  work  files.  They 
■'.lore  bid  formation  Cor  the  MASS  screens  and  reports.  MAS5123.DBF  is  an 
inter  fate  file.  Results  can  be  stored  in  MASS123 . DBF  and  be  interfaced 
with  other  paokap.es  such  as  dBASE.  LOTUS,  or  ENABLE 

!  I ndex  File.  NSN.NDX  is  the  onlv  indexed  file  in  MASS.  The  NSN 

til>  w  indexed  to  speed  the  execution  of  NSN  searches.  The  NSN.NDX  file 

corresponds  to  the  NSN. DBF  tile.  It  records  are  added  or  deleted  from  the 
NSN. DBF  file,  then  a  new  NSN.NDX  file  must  be  made  by  typing: 

<INDEX  ON  NSN  TO  NSN> 

D.  Configuration  Files.  CONFIG. DB  and  CONFIG. DB2  are  dBASE 
configuration  files  They  are  automatically  accessed  when  dBASE  is 
executed.  The  configuration  files  establish  the  environment  for  dBASE. 

E.  Batch  Files.  M . BAT  and  CRASH.BAT  are  batch  files.  M . BAT  removes 
read  only  protection  from  the  program  files,  NSN. DBF  and  DEFAULTS . DBF .  so 
that  MASS  can  use  them.  M . BAT  also  renames  the  dBASE  configuration  files 
no  that'  dBASE  is  properly  configured  for  MASS.  M .  BAT  then  calls  dBASE  and 
executes  the  MASS  programs.  After  MASS  is  finished,  the  M . BAT  program 
returns  the  dBASF.  configuration  to  its  normal  setting,  places  read  only 
protection  back  on  the  MASS  files,  and  returns  the  computer  to  its  original 
screen.  If  MASS  is  interrupted  by  a  power  failure,  the  M . BAT  program  will 
not  properly  change  the  configuration  or  replace  the  read  only  protection 
on  the  MASS  files.  CRASH.BAT  restores  the  computer  to  its  proper  settings 
in  the  event  of  a  power  outage.  The  batch  files  are  listed  in  Appendices  H 
<tnd  I  . 

F.  Data  Base  Processing,  Files.  GOR  .  BAKER  .  JCL  (P8016)  and 

GOR  BAKER .JCL  ( P8016B)  ate  mainframe  program  files  which  create  the  NSN 
data  base.  These  files  reside  on  the  DOR 001  disk  pack  of  the  DORAN 
loinputer.  In  the  event  that  the  disk  pack  files  are  accidentally  c-rased, 

' :.e',  files  are  backed  up  on  tape  number  007578.  File  »  1  on  the  tape  is 
(FT  BAKER .JCL8016  and  file  »  2  is  GOR . BAKER .JCL8016B .  Copies  of  these 
programs  are  listed  in  Appendices  J  and  K. 

'.'ill  LFDATF.  PROCEDURES 

A.  Ledato  Data  Annually  Since  MASS  calculates  life  cycle  costs 
based  on  historical  data,  this  data  must  be  periodically  updated.  We 
. . .  :id  t'.it  *  he  d-i?  ,  he  updated  annually. 

F.  DPMS  Data  Call .  The  litst  step  in  tin-  data  update  process  is  to 
is:, a-  fit  a  ,  alls  to  the  Defense  Rent  i  1  i  ?.a  t  i  on  Marketing  Service  (DRMS)  and 
D  >R0  Figure  2  is  an  example  of  a  DRMS  data  call  letter.  We  suggest  that 
'.ill  DRMS  ai. d  D0R(>  before  issuing  rtie  data  calls  Table  2  l;..,ts 
*  e  !  e;  hope  neirbci  :  for  'ontarts  as  of  October  1  fi  *•'  8 
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1  .  1 


I  I  r  . 

i  fill  1  I  -  ll'!  I 


SI  B..i  ~.CT  :  K«.  quest  tor  Disposal  Data 

TO:  Defense  Reutil ization  Management  Service 

Federal  Center 
ATTN :  DRMS-OD 

Debbie  Helton 
North  Washington  Street 
Battle  Creek,  Michigan  49017-3096 


1,  Reference:  Telephone  conversation  between  Ms.  Debbie  Helton,  DRMS-OD, 
and  Name,  OFFICE- SYMBOL,  Date,  subject  as  a bow . 

2.  We  request  that  you  send  us  a  9  track  6,230  density  EBCDIC  IBM  standard 
label  tape.  The  tape  should  contain  one  year's  worth  of  world-wide 
'disposal  receipt  transactions  (.document  identifier  code  'XR1'  and  'XR3' 

e r ansae t ions ) . 

?.  Please  mail  the  tapes  to: 

Address 
ATTN:  Name 

c i  :  y  ,  S t a te  Zip  ' ,'odi 

*.  The  point  ot  contact  for  this  request  is  Name,  OFFICE -SYMBOL,  Autovon 
phone  number. 


SIGNATURE  BLOCK 
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Table  2 


TELEPHONE  NUMBERS 


For  Help  With: 

Contact  Person 

Autovon 

Number 

Office 

Shelf-Life  Policies 

Mike  Pipan 

284-6193 

DLA-OSC 

Extendibility/Expandabi 1 ity 
Statistics 

LTC  Horace  Knigh' 

343-7387 

DMSB-11 

Di sposal  Cos ts 

Joann  Stock 

932-3902 

D  RMS-ill* 

Disposal  Data  Call  Tapes 

Debbie  Helton 

932-5966 

DRMS -0D 

MASS  Systems  Administration 

Pat  Humphrey 

444-2129 

DPSC-RSTH-21 

MASS  Programs  and  Data 

Rick  Baker 

695-4918 

DLA-DORO 

C.  Data  Base  Processing  Programs.  After  you  receive  the  tapes  from 
DORO  and  DRMS ,  run  the  data  processing  program  listed  in  Appendix  K.  This 
program  may  need  to  be  adapted  to  run  on  your  mainframe.  This  program 
matches  the  data  on  the  two  tapes  and  creates  a  data  file  called 

GOR. BAKER. P8016DB.  This  NSN  data  file  should  be  downloaded  to  a  diskette 
file  called  NSN. TXT. 

D.  UPDATE . PRG .  This  program  copies  the  NSN. TXT  file  into  a  dBASE 
format.  Figure  3  displays  the  files  and  programs  for  the  NSN  data 
processing.  WARNING .  UPDATE. PRG  erases  the  NSN. DBF  data  prior  to  writing 
the  new  NSN  data.  Please  follow  these  steps  carefully  to  prevent  data 
loss  . 


1 .  Enter  dBASE 

2.  At  the  dot  prompt,  make  a  backup  copy  of  NSN . DBF  by  typing: 

<COPY  FILE  NSN. DBF  TO  NSN2 . DBF> 

0  When  the  dot  prompt  returns,  execute  UPDATE. PRG  by  typing: 
<D0  UPDATE> 

.  onfirm  that  you  want  to  zap  NSN. DBF  by  typing:  <Y> 

5.  Confirm  that  you  want  to  overwrite  NSN.NDX  by  typing:  <Y> 

6.  Exit  dBASE  by  typing:  <QUIT> 
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F. .  Updating  DEFAULTS  .  DBF 

Since  DEFAULTS. DBF  has  onlv  one  record,  the  easiest  way  to  update  this  file 
is  to  edit  it  manually.  Figure  4  lists  the  variables  contained  in 
DEFAULTS . DBF .  The  first  ten  variables  listed  in  Figure  4  are  missing  value 
defaults.  MASS  uses  these  values  when  an  NSN  cannot  be  found  on  the 
NSN. DBF  file.  These  default  values  are  based  on  system  average  statistics 
which  ate  printed  by  the  COR . BAKER . JCL  (P8016)  job.  BADE,  B PM,  3SHM . 

BSLM,  and  CONSTANT  are  updated  using  statistics  printed  by  the 

JOR . BAKER .  "CL  (P8016B)  job.  Please  save  the  output  listing  o :  these  jobs 

until  DEFAULTS . DBF  is  updated. 


Figure  4 

LISTING  OF  DEFAULTS . DBF 


’table  Name 

Value 

Descrip t i on 

mshm 

31 

Minimum  Sin  1  f  Life 

HAZ 

Hazardous  Code 

U* EIGHT 

16.0'* 

Unit  Weight 

SLM 

1  .  8 

S<*  1  e  t  V  l.e  vc  1  Months 

ADF 

2  31 

Annual  Demand  Frequency 

PCM 

7 

Procurement  Cycle  Months 

RPWP 

0 . 0130 

Rotatable  Prepositioned  War  Reserve 
Pvobabil i tv 

N  PUR 

0.0022 

Ncmrota table  Prepositioned  War  Reserve 
Probabi 1 i t v 

TRANH 

0 . 1 730 

Transportation  and  Handling  Cost 

I  NAME 

MISSING  NSN 
VALUES 

Item  Name 

PEXP 

0 . 7  7 

Probabi L i ' y  of  Expansion 

EXPR 

0.28 

Expansion  Rate 

SUYCOST 

250.00 

Administrative  Buy  Cost 

HD  ISP 

8 . 3300 

Hazardous  Disposal  Cost  Per  Pound 

NDISP 

8 . 1800 

Nonhazardous  Disposal  Cost  Per  Pound 

BADF 

-0 . 00006151 

Beta  for  Annual  Demand  Frequency 

Bf’CM 

0.00208200 

Beta  for  Procurement  Cycle  Months 

BSHM 

-0 . 001 14600 

Beta  for  Shell  Life  Months 

P,SLM 

0.001 31400 

Beta  for  Safety  Level  Months 

CONSTANT 

0.09958500 

Constant  for  Disposal  Equation 

HOT D INC 

0.11 

Holding  Cost  per  Inventory  Dollar 

PEXP  and  EXPR  figures  can  be  obtained  from  the  Defense  Medical 
Standardization  Board  (see  Table  2  for  telephone  numbers).  PEXP  is  the 
provability  that  the  shelf-life  can  be  expanded  or  extended,  bv  vendor. 
EXPR  is  the  average  proportion  or  increase  in  shelf-life  if  the  stock  is 
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expanded  or  extended.  For  example,  if  PEXP  -  .11  and  KXPR  --  .28,  this 
asean.s  that  71  percent  of  the  items  identified  for  extention  are 
successfully  extended.  Of  that  77  percent  extended,  their  shelf-life,  on 
the  average,  is  increased  by  28  percent. 

Hazardous  disposal  cost  per  pound  (HDISP)  and  nonhazardous  disposal  costs 
per  pound  (NDISP)  are  based  on  figures  obtained  from  DRMS  (see  Table  2  for 
points  of  contact).  The  hazardous  disposal  administrative  costs  per  pound 
(H)  and  nonhazardous  administrative  costs  per  pound  (N)  for  Federal  Supply 
Class  6505  are  required.  You  will  also  need  to  >  now  the  average  unit 
weight  (W)  and  average  unit  price  (P)  for  the  medical  data  base.  These 
figures  can  be  obtained  from  the  statistics  printed  by  the  GOR . BAKER . JCL 
(P8016)  job.  Once  these  are  obtained,  calculate  the  hazardous  and 
nonhazardous  costs  with  the  following  formulas: 

HDISP  =  H  +  P/W 

NDISP  -  N  +  P/W 

The  HAZ,  INANE,  BUYCOST,  and  HOLDING  values  in  DEFAULTS. DBF  are  not  likely 
to  change.  INAME  is  a  default  title  used  for  the  Item  Name  on  the  Medical 
Acquisition  Shelf-Life  System  (MASS)  Report  when  the  NSN  cannot  be  found  on 
the  NSN. DBF  file.  BUYCOST  is  the  administrative  buy  cost  specified  by  the 
Federal  Acquisition  Regulations.  This  figure  does  not  change  unless  the 
law  changes.  HOLDING  is  the  estimated  holding  cost  per  dollar  of 
inventory.  It  includes  10  percent  for  the  time  value  of  money  plus  1 
percent  for  physical  storage.  Since  HOLDING  is  a  cost  per  dollar  of 
inventory,  this  figure  does  not  need  to  be  updated  for  inflation.  Data 
indicates  that  this  value  is  relatively  stable,  but  if  you  wish  to  change 
this  figure,  contact  the  Depot  Operations  Office  at  the  Defense  Logistics 
Agency  Headquarters  (DLA-OW)  (see  Table  2). 

Once  the  new  values  are  determined,  the  DEFAULTS. DBF  can  be  easily  edited 
by  the  following  steps: 

1.  Change  the  directory  to  the  dBASE  directory  by  typing  a  bark 
slash  and  the  dBASE  directory  name  for  your  computer.  For  most  systems  the 
dBASE  directory  is  called  "DBASE.”  If  so,  type:  \DBASE . 

2.  Remove  read  only  protection  by  typing: 

<ATTRIB-R  DEFAULTS. DBF> 

3.  Enter  dBASE  by  typing:  <DBASE> 

U.  At  the  dot.  prompt,  t  vpr :  <USE  DEFAULTS> 


5.  Edit  the  file  by  typing:  <EDIT> 


6.  The  file  can  be  changed  by  overwriting  the  highlighted 

value  s . 

7.  UTien  finished,  hit  the  <V>  key  while  holding  down  the  <CTRL> 
key  to  save  the  file. 

8.  Exit  dBASE  by  typing:  <QUIT> 

F.  Adding  or  Deleting  NSN  Records.  NSN.DBF  can  be  edited  following 
procedures  similiar  to  the  8  steps  listed  above,  except  in  step  U  you  would 
tvpe :  USE  NSN.  However,  when  you  add  or  delete  records  from  the  NSN  data 
base  it  is  necessary  to  reindex  the  file  for  the  MASS  searches  to  work 
properly . 
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APPENDIX  A 


MASS. PRC  Code 


set  confirm  on 
set  talk  off 
clear 

?  '  welcome  to  the  Medical 


?  ' ' 
?  ' 

?  ' 


Defense 


Acquisition  Shelf-life  System 

Logistics  Agency  ' 

DORO' 


(MASS) 


?  99 

?  '  Richmond,  Virginia' 

?  ' ' 

?  ' ' 

?  ' ' 

?  ' ' 

?  ' ' 

?  ' ' 

?  ' ' 

?  ' ' 

?  '  Program  Creation  Data  =  October  1988  ' 

lines  =  o 

do  while  lines  <  150 
lines  =  lines  -t  1 
enddo 
clear 
use  rpt 

SET  safety  off 
rap 

USE  DEPAULT8 
store  0  to  ubuyqty 
STORE  '  '  TO  UNSN 

STORE  HAZ  TO  0HA2 
STORE  INAME  TO  UINAME 
UMSHM  -  mshm 
if  umshm  <  3 
umshm  =  3 
endif 

8 TORE  UWEIGHT  TO  UUWEIGHT 
store  aim  to  ualm 
store  adf  to  uadf 
store  pern  to  upcm 
STORE  RPWR  TO  DRPWR 
STORE  MPWR  TO  UNPWR 
8  TO  RE  TRANH  TO  UTRAJNH 
STORE  . T.  TO  continue 
set  bell  oFF 
set  talk  off 

?  'MASS  evaluates  stocked  replenishment  demand' 

?  'Medical  shelf-life  item  life  cycle  costs  for  any  number  of  bids.' 

?  /  / 

do  while  continue 
do  nsns 
use  rpt 
go  top 
reenum  -  0 
store  '?'  to  ubid 
store  .f.  to  unormal 
store  .1.  to  f normal 
do  while  ubid  I  '  ' 

clear 

append  blank 
reenum  =  reenum  +  l 
go  reenum 

?  'Enter  a  blank  for  BID  ID  when  finished  entering  all  bids.' 

o 

?  '  DOES  ADDITIONAL' 

?  '  SHELF  VENDOR  PER  ONIT' 

?  '  LIFE  EXTEND  COSTS  NOT' 
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7  ’  VALID  8HELF  INCLUDED ' 

7  *  OFFERED  RANGE  BOY  LIFE?  IN  OFFERED' 

?  'BID  ID  UNIT  PRICE  (3-120)  QTY  (T  OR  F)  UNIT  PRICE' 

store  bid  to  ubid 

store  price  to  uprica 

store  shm  to  ushm 

store  extend  to  uextend 

store  acost  to  uacost 

0  10,  0  get  ubid 

read 

if  ubid  f  '  ' 

9  10,  14  get  uprica  picture  'f####f I. II' 

9  10,  col()+6  get  ushm  picture  '0a  til'  range  3,120 
9  10,  coin +2  gat  ubuyqty  picture  '9*  tftttlt'  range  1, 9999999 
3  10,  col() +9  get  uextend  picture  'L' 

9  10,  coin +2  gat  uaooat  picture  'lllllll.il' 
if  .not.  unormal  .and.  .not.  fnormal 
? 

?  'This  is  the  bid  tnat  I  normally  would  have  taken  (T  or  F) ?  ' 
9  row(),  coin  gat  unormal  picture  'L' 

read 

fnormal  =  unormal 
replace  normal  with  unormal 
unormal  =  . t. 

else 

read 

replace  normal  with  .f. 
endif 

replace  bid  with  ubid 
replace  price  with  uprica 
replace  shm  with  ushm 
replace  buyqty  with  ubuyqty 
replace  extend  with  uextend 
replace  acost  with  uacost 
do  compute 
skip  1 
endif 
enddo 

do  while  .not.  eof() 
delete 
skip  1 
enddo 
do  write 

?  'I  wish  to  run  MASS  again  (T  or  F)?  ' 
store  .F.  to  continue 

0row() ,  col()  gat  continue  picture  'L' 
read 
clear 
enddo 
clear 

9  12,23  say  'Thank  you  for  using  MASS.' 
lines  =  o 

do  while  lines  <  90 
lines  =  lines  4-  1 
enddo 
clear 
quit 
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APPENDIX  B 


COMPUTE. PRG  Code 


use  defaults 

pdlsp-badf*uadf  +bpcm*upcn+bsha*ushoi+bsliii*uslm+ const  ant 
If  pdlsp  <  0 
pdisp  -  0 
endtf 

if  pdlsp  -  unpwr  >  1 
pdlsp  -  1  -  unpwr 
endif 

If  uextend 

eshai-ushm*pexp*expr+ushai 

else 

eshm-ushm 

endtf 

ushn— eshai-  6 . 

If  ushm  <  3 
ushm  -  3.0 
endif 

rshm-eshm  7  . 
if  rshm  <  3 
rshra  -  3.0 
endif 

prlce-(uacost+upr lce)*ubuyqty 
thcost-Utranh*uuwelght*ubuyqty 
if  uhaz  -  ' nl'  or.  uhaz  -  1  ' 

dlspc-ndlsp*uuwelghr*ubuyqty+thcosr+prlce*holdlng*eshn/12 

dispnr-ndisp*uuwelght*ubuyqty+thcost 

else 

dlspc-hdlsp*uuwe lght*ubuyqt+thcost+prlce*holdlng*eshn/12 
dlspnr-hdlsp*uuwe lghc*ubuyqty+thcost 
endtf 
cuni-0 

If  npwr  >  0 
1-0 

do  while  l  <-  120 
do  case 

case  l  <  12 
dlsc-1 .000 
case  l  <  24 
disc- . 934 
case  l  <  36 
disc- . 867 
case  l  <  48 
disc-. 788 
case  1  <  60 
disc-. 717 
case  1  <  72 
disc- . 661 
case  i  <  84 
disc-. 692 
case  l  <  96 
disc-. 538 
case  l  <  108 
disc-. 489 
case  i  <  120 
disc-. 445 
otherwise 
disc- . 405 
endcase 
cua-dlsc+cua 
l-l+ushn 
enddo 

tern-( l - 120)/ushn* . 405 
cun-cua- tern 
endif 
do  case 

case  eshra  <  12 


►  ,n  i, -i  non 

,  •  .  i...  • 

fill  HI  •I  'l, 

;  .■  ..  „  ..I...  *1. 

w.M-.  Of.  t 
i-asc  c»tu&  v  £,tt 

edisc- . 788 
case  esha  <  60 
edisc-. 717 
case  esha  <  72 
edisc-. 651 
case  eshm  <  89 
edisc-. 592 
case  esha  <  96 
edisc-. 538 
case  esha  <  108 
edisc-. 989 
case  esha  <  120 
edisc-. 995 
otherwise 
edisc-. 905 
endcase 
do  case 

case  rsha  <  1? 

rdlsc-1 . 0C0 
•ase  rshn  <  29 
rdlsc-,959 
case  rsha  <  36 
rdlsc— . 867 
case  rsha  <  98 
rdlsc- . 788 
case  rsha  <  60 
rdlsc-. 717 
case  rsha  <  72 
rdlsc- . 651 
case  rsha  <  89 
rdlsc- . 592 
case  rsha  <  96 
rdlsc- . 538 
case  rsha  <  108 
rdlsc-. 989 
case  rsha  <  120 
rdlsc- . 995 
otherwise 
rdlsc-. 905 
endcase 

phold-(l-pdlsp)*prlce*holdlng/2 
nrhold-unpwr*prlce*holdlng*6 .997 

pcost-(l-Unpwr)*(prlce+thcost+buycost+phold+pdlsp*dlspc+edlsc) 

rpwrcost-urpwr*thcost*rdlsc 

npwrcost-unpwr*(prlce+thcost+buycost+dlspnr)*cua+nrhold 
1  Ifecost-pcost+rpwrcost+npwrcost 
use  rpc 
go  recnun 

replace  ucost  with  llfecost/ubuyqty 
replace  lcost  with  llfecost 
return 


APPENDIX  C 


NSNS.PRG  Co^e 


store  T.  to  repeat 
do  while  repeat 

7  'Please  enter  the  national  stock  number  (NSN)  for  the  bids' 
7  'that  you  wish  to  evaluate  ‘ 

7  1  ' 

@7,0  say  'nsn  -  ‘  CET  UNSN  PICTURE  ‘ 999999999999S ’ 

READ 

use  nsn  index  nsn 


seek  unsn 
CLEAR 
If  eof ( ) 

7  ’NSN  not  found.  You  may  accept  or  modify  the  system  ' 

7  'defaults  for  this  NSN  or  enter  a  new  NSN  ' 

7  'System  defaults  are  based  on  data  base  averages.' 

USE  DEFAULTS 
store  HAZ  TO  UHAZ 
STORE  1NAME  TO  U1NAME 
UMSHM  -  mshm  -  4 
If  uashm  <  3 
u res  ha  -  3 
endlf 

STORE  UW^ICHT  TO  UUUEICHT 
store  slo  to  uslm 
store  adf  to  uadf 
store  pern  to  upen 
STORE  RPUR  TO  URPWR 
STORE  NPUR  TO  UNPUR 
STORE  TRANK  TO  UTRANH 
ELSE 

7  'The  data  base  Information  for  this  NSN  may  be  accepted  by’ 

7  'hitting  enter  or  can  be  temporarily  modified  for  this  analysis. 
7  'Permenant  data  base  updates  may  be  made  by  browsing  or  ' 

7  'editing  NSN, DBF. ' 

STORE  HAZ  TO  UHAZ 
STORE  [NAME  TO  UINAME 
UMSHM  -  mshm  -  4 
If  umshm  <  3 


umshm  -  3 
endl  f 

STORE  UUEICHT  TO  UUUEICHT 
store  aim  to  uslm 
score  adf  to  uadf 
store  pem  to  upcm 
STORE  RPUR  TO  URPUR 
STORE  NPUR  TO  UNPUR 
STORE  TRANII  TO  UTRANH 
END  IF 


wait 

clear 

7  'I  wish  Co  accept  all  these  NSN  characteristics  (T  or  F)7  ' 
store  .T.  to  accept 

@iow(),  col()  get  accept  picture  'L’ 

7 

7  ’NSN 
7?  unsn 
7 

7  'Hazardous  or  high  disposal  cost  (tern  cc'»*  (bhnl  mean',  r.  nhac.) 
@row(),  coil)  sav  a z  picture  '!!' 


7  ‘  i  fit  name  - 
(II r  " v  t  inlr  ,  say  < i  I  name 
1 

Ml,.  I  .  I  \  Ilf.  I  ■  |.|l  I  •  I  I  ..I  I  I.  I  .  II.U  I  »  .1  l.l  •  I  I  ' 

.  ■  ,  ,  ,,  I  f  ,  say  MM  .MM  |>  I  ,  i,,r„  '  la  /  a  ,f  a  ' 

/ 


t  '  'nil' 


I  ..w  ,  ...It/  «M  /  II..HI.I  ^l.i  |.  I  .  *-.»*.  t,i.  HUH  ft  « .» 

/ 

.  I  M  I.H 

C? . .  I  ~>  -  I  t  t  -  -  1  1 1  <»  I  “<  /•  I  •  *  ' . .  ntt  m 

I 

7  'Annual  demand  frequency  —  ' 

@row().  col()  say  Uadf  picture  'i *######' 

7 

?  *  Procurement  cycle  months  (valid  range  3  to  36)  -  * 

@row(),  col()  say  Upcm  picture  ‘@z  ###' 

7 

7  'Probability  of  rotatable  pwr  -  ' 

@row(),  col()  say  urpwr  picture  'a.####' 

7 

7  'Probability  of  nonrotatable  pwr  -  ' 

@row(),  col()  say  unpwr  picture  '*.»###' 

7 

7  'Transportation  and  handling  $  per  pound  -  ' 

@roy(),  col()  say  utranh  picture  '@z  i *##.####’ 
read 

If  accept 
return 
endlf 
clear 
7  ' NSN  -' 

7?  unsn 
7 

7  ‘Hazardous  or  high  disposal  cost  item  code  (blank  means  nonhaz.)  - 
@rov().  col()  get  Uh»z  picture  'll' 

7 

7  'Item  name  -  ' 

@row(),  col()  get  ulname 
7 

7  'Min  shelf-life  required  for  this  NSN  (valid  range  3-120)  -' 
@row(),  col()  get  UMSHM  picture  '##»’  range  3,120 
7 

7  'Unit  weight  -  ' 

@rov(),  col()  get  Uuwelght  picture  '@z  »»»».»»'  range  .01,9999.99 
7 

7  'Safety  level  months  -  ' 

@row(),  col()  get  Uslm  picture  '#».»' 

7 

7  'Annual  demand  frequency  -  ' 

(3rov(),  col()  get  Uadf  picture  '#*#»*#*' 

7 

7  'Procurement  cycle  months  (valid  range  3  to  36)  -  ’ 

@row(),  col()  get  Upcm  picture  '@z  •»»’  .range  3,36 
7 

7  ‘Probability  of  rotatable  pwr  -  * 

@rov(),  col()  get  urpwr  picture 
7 

7  ‘Probability  of  nonrotatable  pwr  -  ' 

@row(),  col()  get  unpwr  picture  '*,#»»#' 

7 

7  ‘Transportation  and  handling  $  per  pound  -  ‘ 

@row(),  col()  get  utranh  picture  ’@z  #»».##«#'  range  .0001,999.9999 
7 

7  ’I  wish  to  stop  and  enter  a  new  NSN  (T  or  F)7  ' 
store  .  F.  to  repeat 

@row(),  col()  get  repeat  picture  ’L‘ 
read 
clear 
enddo 
return 
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WRITE. PRC  Code 


use  rpt 
go  top 

delete  for  bid  -  '  ' 

pack 

sort  to  ucost  on  ucost 
use  ucost 
go  top 

minprlce=9999999 .99 
nicest  s  0 
nbuyqty  =  1 
flag  =  .f. 

do  while  .not.  wof()  .and.  .not.  flag 
if  shm  >=  umsba  .and.  price  <  minprice 
minprice  =  price 
nlcost  =  lcost 
nbuyqty  =  buyqty 
endif 
if  normal 
flag  =  ,t. 
minprice  =  price 
nlcost  =  lcost 
nbuyqty  =  buyqty 
endif 
skip  1 
enddo 
go  top 

do  while  .not.  eof() 
if  nlcost  =  0 
avoid  =  o 
else 

avo i d=buyqty  * (nlcost/ nbuyqty- 1 cos  t/buyqty ) 
endi  f 

replace  avoidance  with  avoid 
replace  nsnout  with  unsn 
replace  mshmout  with  umahm 
replace  acceptbid  with  '  ' 
replace  has  with  uhaa 
replace  uweight  with  uuweight 
replace  elm  with  ualm 
replace  adf  with  uadf 
replace  pem  with  upcm 
replace  rpwr  with  urpwr 
replace  npwr  with  unpwr 
replace  tranh  with  utranh 
skip  1 
enddo 
do  screen 
do  rpt 

n 

set  print  off 
set  console  on 
clear 

7  'I  wish  to  print  the  data  used  in  the  analysis  to  compute' 
7  'the  life  cycle  costs7' 

7  'Warning:  This  may  print  several  pages  of  output.' 

?  'I  wish  to  print  the  input  data  (T  or  F)7' 
store  .T.  to  continue 

Grow ( ) ,  col()  get  continue  picture  'L' 
read 

if  continue 
set  print  on 
set  console  off 

7  ' N8N  Characteristics  Used  to  Compute  Life  Cycle  Costs' 

7 

7  'Pate  (mm/dd/yy)  =  ' 

??  dateO 


7?  '  Time  (hh:mm:ss)  =  • 

77  time() 

7 

7  'Hazardous  Storage  Compatability  code  =  • 

77  uhaz 

7  'unit  weight  =  ' 

7?  uuweight 

?  'safety  level  months  =  ' 

??  uslm 

?  'annual  demand  frequency  a  ' 

7?  uadf 

?  'procurement  cycle  months  =  ' 

??  upcm 

?  'rotatable  PWR  probability  =  ' 

??  urpwr 

?  'nonrotable  PWR  disposal  probability  =  > 

??  unpwr 

?  'transportation  and  handling  cost  per  pound  =  • 

77  utranh 
o 

?  'Bid  Extention  and  Additional  Costs' 
list  off  bid,  extend,  acost 
use  defaults 
7 

7  'System  Default  Values' 

? 

?  'Minimum  Shelf-life  Requirement  =  ' 

??  ms ho 

?  'Hazardous  Storage  Compatability  Coda  s  ' 

??  has 

7  'Unit  Weight  s  ' 

??  uweight 

?  'Safety  Level  Months  =  ' 

??  slm 

?  'Annual  Demand  Prequency  =  ' 

??  adf 

?  'Procurement  Cycle  Months  =  ' 

??  pent 

?  'Rotatable  PWR  Probability  =  ' 

??  rpwr 

?  'Nonrotable  PWR  Disposal  Probability  =  ' 

??  npvr 

?  'Transportation  and  Handling  Cost  Per  Pound  =  ' 

??  tranh 
?  'Item  Name  =  ' 

??  inane 

7  'Probability  of  Shelf-life  Extention  or  Expansion 
77  pexp 

?  'Percent  Shelf-life  Extention  or  Expansion  =  ' 

77  expr 

7  'Administrative  Cost  of  a  Buy  =  ' 

77  buyeost 

7  'Hazardous  Item  Disposal  Cost  Par  Pound  =  ' 

??  hdisp 

7  'Nonhasardous  Item  Disposal  Cost  Per  Pound  =  ' 

77  ndisp 

7  'Beta  Value  for  Annual  Demand  Prequency  =  ' 

77  badf 

7  'Beta  Value  for  Procurement  Cycle  Months  =  ' 

7?  bpcm 

7  'Beta  Value  for  Shelf-life  Months  =  ' 

77  bshm 

7  'Beta  Value  for  Safety  Level  Months  =  ' 

77  bslm 

7  'Regression  Constant  =  ' 

77  constant 
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?  'Annual  holding  cost  par  dollar  of  inventory  =  ' 

??  holding 
? 

endif 

set  console  on 
set  print  off 
clear 

?  'The  results  of  this  MASS  analysis  are  stored  in  file  HA8B123 .DBF. ' 

?  'This  file  has  been  formatted  for  LOTUS  123.' 

?  'If  you  want  to  format  this  data  for  ENABLE ,  we  suggest  that  you' 

?  'use  the  translate  option  in  LOTUS  version  2  to  write  a  .WAS  file.' 

?  'This  . WK8  file  can  then  be  read  by  ENABLE.  We  suggest  this  method' 
?  'because  some  versions  of  ENABLE  are  not  directly  compatable  with' 

?  'dBASE  III.  See  the  Use  manual  for  further  details.' 

n 

?  'I  want  to  erase  the  previous  MA8S12 3 . DBF  file  (T  or  F)?' 
store  .P.  to  continue 

@row(),  col()  get  continue  picture  'L' 
read 

if  continue 

store  . N .  to  continue 

?  'I  am  sure  that  I  want  to  erase  MASS123 . DBF  (T  or  F)?' 

Grow ( ) ,  col()  get  continue  picture  'L' 
read 
endif 

if  continue 
use  massl23 
rap 

use  ucost 
endif 

store  .T.  to  continue 

?  'I  want  to  append  the  currant  results  to  file  MA88123 . DBF  (T  or  F)?' 

@rcw() ,  col()  get  continue  picture  'L' 

read 

if  continue 
use  massl23 

append  from  delimited  from  ucost 
endif 
clear 
return 


APPENDIX  E 


SCREEN. PRC  Code 


go  top 

set  print  off 
set  console  on 
do  while  ,noc.  eof() 
clear 

7  '  Medical  Acquisition  Shelf-life  System  (MASS)  Reporc' 

7 

7  ' NSN  -  ' 

7?  unsn 

7  ‘ I  tea  Name  -  ' 

77  ulname 

7  'Current  Shelf-life  Month  Requirement  -  1 
77  uasha 

7  'Date  (mm/dd/yy)  -  ’ 

77  date() 

7?  '  Time  (hh:ma: ss )  ~  ' 

77  tlme() 

7 

7  1  Ten  Year  Te' 

7?  'n  Year  ' 

7  '  Vendor  Shelf  Discounted  Disc' 

77  'ounted  Ten  Year' 

7  '  Unit  Life  Unit  Life  Buy  ' 

77  '  Life  Cost' 

7  'Bid  Id  Price  Month  Cycle  Cost  Quantity  Cycle' 

77  '  Cost  Avoidance’ 

7 

lines  -  0 

do  while  lines  <  11 
lines  -  lines  +  1 
7  bid 
77  '  ' 

77  price 
7?  ' 

7  7  sha 
77  '  ' 

77  ucost 
77  ' 

77  buyqty 
77  '  ' 

77  lcost 
77  '  ' 

77  avoidance 
skip  1 
If  eof ( ) 
lines  -  52 
end  if 
enddo 
wait 
enddo 
c  lear 
return 


E-l 


APPENDIX  F 


RPT.PRG  Code 


clear 

score  T.  Co  continue 

7  'I  want  to  print  this  report  (T  or  F)7' 

@row(),  col ( )  get  continue  picture  '  L' 
read 

if  .not.  continue 
return 
endi  f 
go  top 

set  print  on 
set  console  off 
do  while  not.  eof() 

7 

7  '  Medical  Acquisition  Shelf-life  System  (MASS)  Report' 

7 

7  * NSN  -  ' 

77  unsn 

7  ' Item  Nome  -  ' 

7?  ulnsme 

7  'Current  Shelf-life  Month  Requirement  -  ' 

7  7  uashai 

7  ’Date  (nun/dd/yy)  —  ' 

77  date() 

77  '  Time  (hh : am : ss )  -  ' 

77  time ( ) 

7 


7  ' 

77  'n  Year 

. 

Ten  Year 

Te' 

7  ' 

77  ‘ounted 

Vendor 
Ten  Year' 

Shelf 

Discounted 

Disc' 

7  ' 

77  '  Life 

Unit 

Cost' 

Life 

Unit  Life 

Buy 

$ 

7  'Bid  Id 

77  '  Cost 

Price 

Avoidance* 

Month 

Cycle  Cost 

Quantity 

Cycle 

7 

lines  -  0 

do  while  lines  <51 
lines  -  lines  +  t 
7  bid 
77  '  1 
77  price 
7?  ' 

77  shm 
77  '  ' 

77  ucost 
77  ' 

77  buyqty 
7?  '  ' 

77  lcost 
77  '  ' 

7V  avoidance 
skip  1 
if  eof() 
lines  -  52 
endi  f 
enddo 
eject 
enddo 
7 

return 


F-  l 


APPENDIX  G 


UPDATE. PRG  Code 


USE  NSN 
ZAP 

APPEND  FROM  NSN . TXT  SDF 
INDEX  ON  NSN  TO  NSN 
USE 


C-l 


APPENDIX  H 


M.BAT  Code 


ECHO  OFF 
CD\DBASE 
NOKEY 

attrib  -r  nsn.dbf 
attrib  -r  compute. prg 
attrib  -r  mass. prg 
attrib  -r  rpt.prg 
attrib  -r  write. prg 
attrib  -r  screen. prg 
attrib  -r  defaults. dbf 
rename  config.db  config2.db 
rename  config.db2  config.db 
DBASE 

rename  config.db  config.db2 
rename  config2.db  config.db 
attrib  +r  nsn.dbf 
attrib  +r  compute. prg 
attrib  +r  mass. prg 
attrib  +r  rpt.prg 
attrib  +r  write. prg 
attrib  +r  screen. prg 
attrib  +r  defaults. dbf 
cd\ 

autoexec 


H-l 


APPENDIX  I 


CRASH. BAT  Code 


ECHO  OFF 
CD\DBASE 

rename  config.db  config.db2 
rename  config2.db  config.db 
attrib  +r  nsn.dbf 
atcrib  +r  compute. prg 
attrib  +r  mass. prg 
attrib  +r  rpt.prg 
attrib  +r  write. prg 
attrib  +r  screen. prg 
attrib  tr  defaults. dbf 
cd\ 

autoexec 


1-1 


A  IT  I-  !tl)l  X 


I 


i.i  H<  .  HAKI  U  .  .ICI .  ( I’HO  I  (i)  Coili1 


/  ,  I,.  I  (.1.1 1  I  II  lull  (i.iiih  ,|/j  ,  '  HAKI  l«  ’  ,  HM.rl  JV.;.-  V,  ClAMi-.' ,  T I  ML—  MAO 

,/:>TtPl  EAEC  PoM-bATCH.Mi4,Rtol0N-3000K 

//STEPLIB  DO  DSN  -  M2  04  .  R9 0  .  CRAM  LI  B ,  DIS  P— SHR 

//  DD  DSN“M204  .  R90  .  LOAD,  DISP=*SHR 

//CCASTAT  DD  DSN=M204 . CCASTAT, DISP=SHR 

//NSN  DD  DSN=GORD. NSN884 , DISP”SHR 

//DMROl  DD  DSN=CORD.DMRO881,0ISP=SHR 

/ / DMRO 1 A  DD  DSN=GORD. DMR0881A, DISP=SHR 

//DMR02  DD  DSN=GORD. DMROS82 , DISP=SHR 

//DMRO 2 A  DD  DSN=GORD. DMR0882A, DISP=SHR 

//DMRO 3  DD  DSN=GORD . DMR08 8  3 , DISP=SHR 

//DMRO 3 A  DD  DSN-GORD. DMR0883A, DISP=SHR 

//DMRO 4  DD  DSN=G0RD. DMR0884 , DISP=SHR 

//DMR04A  DD  DSN=GORD . DMRC 884 A , DISP=SHR 

//CCAAUDir  CD  SYSOUT=* 

//CCAPRINT  DD  SYSOUT=* 

//CCATEMP  DD  DSN=iiTEMP , DISr= (NEW , DELETE , DELETE) , UNIT=WORKD, 

//  SPACE=(TRK, 200) 

//SYSPRINT  DD  SYSOUT=* 

//OUTDATAN  DD  DSN=GOR . BAKER . P8016MR0 , DISP- (NEW , PASS , DELETE) , 

//  UNIT=*TAPE,  DCB=  (R£CFM«FB,  LRECL-208  ,  BLKSIZE-23296)  , 

//  LABEL=RETPD^180,VOL»( , , ,9) 

//SYSOUT  DD  5YSOUT=* 

//CCAIN  DD  * 

NDIR=1 0 ,  NFILES=10 ,  LVTBL=2000  ,  LNTBL=2  00 ,  LQTBL=*800 ,  LRETBL=4  000 , 

LSTBL=  1552 8 , MDKR D=5000000, MDKWR=5000000 , MCNCT=2 50000 ,  MUDD=*2000000 , 
PAGESZ=6184 , LFSCB=5000 , UDDCCC=13 3 , OUTMRL=*13 3 , MOUT-20 00000 , LFTBL-1094 32 
LOGIN  GOR6058 
HUNDLEY 
OPEN  NSN 

OPEN  DMROl 

OPEN  DMR02 

OPEN  DMRO 3 

OPEN  DMR04 

BEGIN 

IMAGE  NSNOUT 

OUT. NSN  IS  STRING  LEN  13 
OUT.HAZ  IS  STRING  LEN  2 
OUT . I NAME  IS  STRING  LEN  19 

OUT. LDISP  IS  STRING  LEN  5  PAD  '0'  JUSTIFY  RIGHT 
OUT.SHLM  IS  STRING  LEN  2  PAD  'O'  JUSTIFY  RIGHT 
OUT . SPRQC  IS  STRING  LEN  1 

OUT . UCUBE  is  STRING  LEN  6  PAD  '0'  JUSTIFY  RIGHT 
OUT . UWEICHT  IS  STRING  LEN  6  PAD  '0'  JUSTIFY  RIGHT 
OUT . UPRICL  IS  STRING  LEN  9  PAD  '0'  JUSTIFY  RIGHT 
OUT.SLM  IS  STRING  LEN  3  PAD  'O'  JUSTIFY  RIGHT 

OUT.BOQ  IS  STRING  LEN  9  PAD  '0'  JUSTIFY  RIGHT 

OUT.IAQ  IS  STRING  LEN  9  PAD  '0'  JUSTIFY  RIGHT 

OUT.MADQ  IS  STRING  LEN  9  PAD  'O'  JUSTIFY  RIGHT 
OUT . OWRMRP  IS  STRING  LEN  9  PAD  '0'  JUSTIFY  RIGHT 
OUT. ADO  IS  STRING  LEN  9  PAD  '0'  JUSTIFY  RIGHT 

OUT.ADF  IS  STRING  LEN  7  PAD  '0'  JUSTIFY  RIGHT 

Ot:r.  PCM  IS  STRING  LEN  3  PAD  'O'  JUSTIFY  RIGHT 

OUT.ROP  IS  STRING  LEN  7  PAD  '0'  JUSTIFY  RIGHT 

CUT.QFD  IS  STRING  LEN  9  PAD  '0'  JUSTIFY  RIGHT 

OUT.QFR  IS  STRING  LEN  9  PAD  '0'  JUSTIFY  RIGHT 

OUT.RDN  IS  STRING  LEN  15 

OUT . NSHI P  IS  STRING  LEN  3  PAD  '0'  JUSTIFY  RIGHT 
OUT. Die  IS  STRING  LEN  3 
OUT. PROJ  IS  STRING  LEN  3 
OUT . COND  IS  STRING  LEN  1 


ooo J  oooo 
00030002 
00040002 
00050002 
00060002 
00070003 
00080002 
00090002 
00100002 
00110002 
00120003 
00130003 
00140003 
00150003 
00160002 
00170002 
00180002 
00190002 
00200002 
00210002 
00220002 
00230003 
00240002 
00250002 
X00260002 
X00270002 
00280002 
00290002 
00300002 
00310002 
00320002 
00330002 
00340002 
00350002 
00360002 
00370002 
00380002 
00390002 
00400002 
00410002 
00420002 
00430002 
00440002 
00450002 
00460002 
00470002 
00480002 
00490002 
00500002 
00510002 
00520002 
00530002 
00540002 
00550002 
00560002 
00570002 
00580002 
00590002 
00600002 
00610002 
00620002 
00630002 
00640002 
00650002 
00660002 
00670002 


J-l 


OUT .  SERV  IS  STRING  LEN  1 

OUT. IPG  IS  STRING  LEN  1  PAD  'O'  JUSTIFY  RIGHT 

OUT . PPZONE  IS  STRING  LEN  1 

OUT.DEST  IS  STRING  LEN  2 

OUT. POE  IS  STRING  LEN  3 

OUT . MODE  IS  STRING  LEN  1 

OUT . TRANCOST  IS  STRING  LEN  7  PAD  'O'  JUSTIFY  RIGHT 
OUT . S H I P DATE  IS  STRING  LEN  5  PAD  'O'  JUSTIFY  RIGHT 
OUT.QTYGFF  IS  STRING  LEN  5  PAD  '0'  JUSTIFY  RIGHT 
OUT . HROCUBE  IS  STRING  LEN  5  JUSTIFY  RIGHT  PAD  'O' 

OUT . MRQWGT  IS  STRING  LEN  6  JUSTIFY  RIGHT  PAD  '0' 

END  IMAGE 

OPEN  DATASET  OUTDATAN  FOR  OUTPUT 

PREPARE  IMAGE  NSNOUT 

FIND2 :  IN  NSN  FD  SHLM  IS  GT  0 

DSC  =  M 
ICC  =  1  OR  P 

END  FIND 

FR1 :  FR  FIND2 

%NSNOUT : OUT . NSN  =  NSN 
%NSNOUT:DUT.HA2  =*  HZSC 
% NSNOUT : uUT . I NAME  »  ITEMNAME 
%  NSNOUT :  OUT.  LDISP  •=  LDDATE 
%NSNOUT: OUT. SHLM  »  SHLM 
%NSNOUT : OUT . SPRQC  -  SPRQC 
i NSNOUT : OUT. UCUBE  =  UCUBE  *  1000 
%  NSNOUT  :  OUT  .  UVJEIGHT  =UWEIGHT  *  100 
t NSNOUT : OUT . U PRICE  “UPRICE  *  100 
» NSNOUT: OUT. SLM  =  SLM  *  10 
%NSNOL’T  :  OUT  .  BOQ  *>  BOQ 
INSNOUT : OUT . IAQ  =  IAQ 
%NSNOUT : OUT . MADQ  =  MADQ  *  10 
%NSNOUT : OUT . OWRMRP  =  OWRMRP 
%NSNOUT ; OUT . ADQ  =  ADQ 
% NSNOUT: OUT. ADF  =  ADF 
%NSNOUT: OUT. PCM  -  PCM 
INSNOUT : OUT . HOP  “  ROP 
tNSNOJT : OUT . QFD  =  QFD 
% NSNOUT : OUT . QFR  =  QFR 

FIND3:  IN  DMROl,  DMR02 ,  DMR03 ,  DMR04  FD  NSNORPART  -  %NSNOUT : OUT . NSN 

END  FIND 
FR2:  FR  FIND3 

IF  TOTCUBE  >  0  THEN 

1 HROCUBE  =  $ROUND (TOTCUBE) 

ELSE 

iMROCUBE  =  $ROUND(CUBE  *  QTY  OFF) 

END  IF 

IF  TOTWGT  >  0  THEN 

4MROWGT  *  TOTWGT 

ELSE 

4MEOWGT  =  $ROUND (WGTXQTY  ,  0 ) 

END  IF 

IF  1MROWGT  =  0  THEN 
tHROWGT  =1 
END  IF 

% NSNOUT: OUT. RDN  =  RDN 
% NSNOUT: OUT . NSH I P  =  NUM  SHIPS 
% NSNOUT : OUT . DIC  =  DIC 
INSHOUT : OUT . PROJ  °  PROJ  CODE 
1 NSNOUT : OUT . COND  *»  COND  CODE 
INSNOUT : OUT . SERV  »  SERV  IND 
1N5NOUT : OUT . I PG  »  IPG 
INSNOUT: OUT. PPZONE  =  PPZONE 
% NSNOUT; OUT.DEST  »  DEST  CODE 


00680002 
00690002 
00700002 
00710002 
00720002 
00730002 
00740002 
00750002 
00760002 
00770002 
00780002 
00790002 
00800002 
00810002 
00820002 
00830002 
00840002 
00850002 
00B60002 
00870002 
00880002 
00890002 
00891002 
00892002 
00893002 
00894002 
00895002 
00896002 
00697002 
00898002 
00899002 
00899102 
00899202 
00899302 
00899402 
00899502 
00899602 
00899702 
00899802 
00899902 
00900002 
00903102 
0091 3202 
00930302 
00900402 
00900502 
00900602 
00900702 
0090080"' 
009009C 
00901002 
00901102 
00901202 
00901302 
00901402 
00901502 
0090160*. 
0090^/02 
00901802 
0090190.: 
00902002 
00902102 
00902202 
00902302 
00902402 
00902502 


J-2 


%  N SNOUT  :  OUT  .  POE  -  POE 
tNSNOUT: OUT. MODE  -  MODE 

%NSNOUT : OUT. TRANCOST  -  TRANS  COST  *  100 
tNSNOUT: OUT . SHIPDATE  -  DATE  SHIP 
%NSN0UT : OUT . QTYOFF  -  QTY  OFF 
%NSN0UT :  OUT  .  MROCUBE  *>  %MROCUBE 
%NSNOUT : OUT . KROWGT  -  %MROWGT 
WRITE  IMAGE  NSNOUT  ON  OUTDATAN 
END  FOR 
END  FOR 

END 

CLOSE  ALL 
EOJ 

/* 

//STEP2  EXEC  PGM-IERRCOOO, REGION=990K, P ARM- ' CORE-MAX ' 
//SORTLIB  DD  DSN-S YS1 . SORTLI B , DISP-SHR 
//SYSUDUMP  DD  SYSOUT-* 

//SORTMSG  DD  SYSOUT-* 

//SYSOUT  DD  SYSOUT-* 

//SORT  IN  DD  DSN-GOR. BAKER. P8 01 6MRO, 

//  DISP-(SHR) 

//SORTOUT  OD  DSN-GOR. BAKER. P8 01 6MS , 

//  UNIT-TAPE, DISP- (NEW, CAT LG , DELETE) , 

//  LABEL=RETPD=20C 

//SGRTWK01  DD  UNIT-WORKD, SPACE- (TRK ,913) 

//SORTWK02  DD  UNIT-WORKD, SPACE- (TRK , 9 13 ) 

//SORTWK03  DD  UNIT-WORKD, SPACE- (TRK, 913 ) 

//SORTWK04  DD  UNIT-WORKD , SPACE- (TRK , 9 1 3 ) 

//SORTWK05  DD  UNIT-WORKD, SPACE- (TRK , 9 13 ) 

//SORTWK06  DD  UNIT-WORKD, SPACE- (TRK, 913) 

//SYSIN  DD  * 

SORT  FIELDS- ( 1 , 1 3 , CH , A) 

END 

/* 

//STEP3  EXEC  SPSSX , CYLS- '2,200' 

TITLE  'GOR. BAKER. P8016MRO  FREQUENCY  REPORT' 

DATA  LIST  FILE  INFILE  / 

LDDATE  35-39 

SHM  40-41 

SPRQC  42  ;A) 

UCUBE  43-48  (3) 

UWEIGHT  49-54  (2) 

UPRICE  55-63  (2) 

SLM  64-66  (1) 

BOQ  67-75 
IAQ  76-84 
MADQ  85-93  (1) 

OWRMRP  94-102 
ADQ  103-111 
ADF  112-118 
PCM  119-121 
ROP  122-128 
QFD  129-137 
QFR  138-146 
RDN1  147  (A) 

NSHIP  162-164 
DIC  165-167  (A) 

PROJ  168-170  (A) 

PROJ1  168  (A) 

COND  171  (A) 

IPG  173  (A) 

PPZONE  174  (A) 

DEST  175-176  (A) 

POE  177-179  (A) 

MODE  180  (A) 

TRANCOST  181-187  (2) 


00902602 

00902702 

00902802 

00902902 

00903002 

00903102 

00903202 

00903302 

00903402 

00903502 

00903602 

00903702 

00903802 

00903902 

00904002 

00904102 

00904202 

00904302 

00904402 

00904502 

00904602 

00904702 

00904802 

00904902 

00905002 

00905102 

00905202 

00905302 

00905402 

00905502 

00905602 

00905702 

00905802 

00905902 

00906002 

00906102 

00906202 

00906302 

00906402 

00906502 

00906602 

00906702 

00906802 

00906902 

00907002 

00907102 

00907202 

00907302 

00907402 

00907502 

00907602 

00907702 

00907802 

00907902 

00908002 

00908102 

00908202 

00908302 

00908402 

0090B502 

00908602 

00908702 

00908802 

00908902 

00909002 

00909102 
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SHIPYR  188-189 
QTYOFF  191-197 
MROCUBE  198-202 
MROWGT  203-208 

MISSING  VALUES  LDDATE  SHM  UCUBE  TO  QFR  TRANCOST  TO  KROWGT  (0) 
RECODE  RDN1  ('A',  'B',  'C',  'W'  =  'A'  ) 

('N',  'P',  'Q',  'R',  'V',  'L',  'M',  'Z'  *  ' N '  ) 
('D',  '  E '  ,  'F',  'J'  “  'F'  ) 

STRING  PWR  ( A8 ) 

DO  IF  RDN1  EQ  'A'  AND  (PROJ  =  ' 3AA'  OR  PROJ  -  'WR2 ' ) 

COMPUTE  PWR  =  '  A  97%  ' 

"Li'S  R0N1  FQ  'N'  AND  ( PROJ1  »  '?') 

CCMPY  I”i  «WR  =  '  N  9  5%  ' 

else  if  ;  ;>ni  eq  'N'  and  (proj  =  '714'  ) 

COMPUTE  PWR  =  '  N  0%  ' 

IF  RDNI  EQ  'F'  AND  (PROJ  =  '262'  OR  PROJ  -  '596') 
COMPUTE  PWR  =  '  F  0%  ' 

ELSE  IF  RDNI  EQ  'F'  AND  (PROJ  NE  '  ') 

COMPUTE  PWR  -  '  F  75%  ' 

ELSE 

COMPUTE  PWR  =  '  NONE  ' 

END  IF 

PECODE  MPOWGT  (0  THRU  69.99=69) 

(70  THRU  499.99=499) 

(500  THRU  999.99=999) 

(1000  THRU  1999.99=1999) 

(2000  THRU  4999.99-4999) 

(5000  THRU  10000=10000) 

(10000  THRU  HI-10001)  INTO  WGTCAT 
STRING  REFRIG  (A8) 

RECODE  SPRQC  ('U',  '3',  '4',  '5',  '6'  -  '  REFRIG  '  ) 

('O',  '  ',  'Z'  =  'NOREFRIG') 

I  ELSE  =  '  No  REQ  ')  INTO  REFRIG 
BREAKDOWN  QTYOFF  BY  PWR 
OPTIONS  6 

CONDESCRIPTIVE  TRANCOST  TO  MROWGT 

FREQUENCIES  VARIABLES-  RDNI  TO  DIC  COND  TO  MODE  SHIPYR 


FINISH 

//INFILE  DD  DSN-GOR. BAKER. P8016MRO, 

//  DISP=SHR 
//* 

/ / STEP4  EXEC  PGM=ATJ91U 
//SYSPRINT  DD  SYSOUT=* 

//SYSUT1  DD  DSN=GOR . BAKER. P8016MS , DISP-SHR 

//SYSUT2  DD  DSN=GOR. BAKER. P80 16AD , DISP- (NEW , CATLG , DELETE) , 

//  UNIT-3380, VOL-SER-WORKWS , SPACE- (TRK, (130, 160) , RLSE) , 

//  DCB= ( LPECL=3  6, BLKS IZ E=2 4 4 4 4  ,RECFM=FB) 

I  IS  IN  DD  * 


-  DEFAULT  PWR  MRC  QTY  PROPORTION  -  0  IN  OUTPUT  COLUMNS  14-18 

*  DEFAULT  PWR  HRO  DISPOSAL  QTY  PROPORTION  -  0  IN  OUTPUT  COLUMNS  19-23 

*  DEFAULT  TRANS  COST  PER  POUND  -  $0,082  IN  OUTPUT  COLUMNS  24-29 

*  DEFAULT  HANDLING  COST  PER  POUND  =  $0,091  IN  OUTPUT  COLUMNS  30-36 

*  DEFAULT  MODE  G  TRANS  COST  PER  POUND  -  $0.24 

*  DEFAULT  MODE  H  TRANS  COST  PER  POUND  =  $1.16 

*  MAINLINE 
I  F  EOJ 

1.0  2  EOJ  END  I F 
IF  5YSUT1  =  1 

M  I  TO  V : , i 3  ENDIF 


00909202 
00909302 
00909402 
00909502 
00909602 
00909702 
00909802 
00909902 
00910002 
00910102 
00910202 
00910302 
00910402 
00910502 
00910602 
00910702 
00910802 
00910902 
00911002 
00911102 
00911202 
00911302 
00911402 
00911502 
00911602 
00911702 
00911802 
00911902 
00912002 
00912102 
00912202 
00912302 
00912402 
00912502 
00912602 
00912702 
009  *2802 
00r 12902 
Of  ,13002 
00913102 
00913202 
00913303 
01980001 
01990001 
02000  1 
02010  Jl 
02020.  3  l 
02  03  C 
02040  j1 
02050-01 
02060001 
0207 C O''  l 
020  JO-. 
O2OSO00 
021000 
021100  x 
0  120001 
0  130001 

0 .140001 
07150001 
'  1 6  o  o  o  1 

-■  OJ01 

02180001 

02190001 

02200001 


i.)  HI 


IN  DIF 


A!  'I  i  |  <  i  II  I  n  n  .  I  n 

Mini  i  r  i.v  iK.  uy  jui.i,  ijiviiiu  Hi40,t> 

ADD  H 1 4  0 , 6  TO  H120, 10 
ENDIF 

*  H160.10  SHIPCOST  2  DECIMAL  PLACES 
IF  203,6  GT  '000070' 

ADD  2860  TO  H160, 10 

ELSE 

ADD  496  TO  H160, 10 
ENDIF 
EXIT 

* 

*  D2 -WRITE - NSN  PROB,  AND  RATES 
D2 

M  HI  TO  R1 , 13 
IF  H30, 10  CT  ZEROS 

DIVIDE  H 3 0 , 10  INTO  H50,15 

ADD  5  TO  H50 , 15 

M  HS9  TO  R 14 , 5 

DIVIDE  H 3 0 , 10  INTO  H70,13 

ADD  5  TO  H70, 13 

M  H77  TO  R 1 9 , 5 

ELSE 

M  ZEROS  TO  R14 , 5 
M  ZEROS  TO  R19 , 5 
ENDIF 

IF  H10O, 10  GT  ZEROS 

DIVIDE  H100 , 10  INTO  H120.12 
ADD  5  TO  Hi  2  0,  12 
M  H12  5  TO  R  2  4 , 6 

ELSE 

M  '000082'  TO  R24.6 
ENDIF 

IF  H200, 10  GT  ZEROS 

DIVIDE  H200 , 10  INTO  H160,13 
ADD  5  TO  H 1 6  0 , 13 
M  H 1 6 5  TO  R3  0 , 7 

ELSE 

H  '0000910'  TO  R30 , 7 
ENDIF 

IF  R24 , 6  EQ  ZERC  S 

M  '000082  '  TO  R24 , 6 
ENDIF 

IF  R3 0 , 7  EQ  ZEROS 

M  '0000910'  TO  R3 0 , 7 
ENDIF 
W2 

M  ZEROS  TO  H14 , 500 
EXIT 

/* 

//STEP5  EXEC  FGM=IERRCOOO,REGION=990K, P ARM- ' CORE-MAX ' 
//SORTLIB  DD  DSN=SYS1 . SORTLIB, DISP-SHR 
//SYSUDUMP  DD  SYSOUT-* 

//SORTMSG  DD  SYSOUT-* 

//SYSOUT  DD  3YSOUT-* 

//SORTIN  DD  DSN-GOR. BAKER. PG016NS, 

//  DISP- (SHR) 

//SORTOUT  DD  DSN-GOR . BAKER . PE 0 1 6SN , 

//  UNIT-WORKD, DISP- (NEW, PASS, DELETE) , 

//  SPACE**  (TRK ,  (13,91)  ,  RLSE)  , VOL-SER-WORKDS 

//SORTKKOl  DD  UNIT-WORKD ,  SPACE**  (TRK ,  9 1 3  ) 

//SORTWK02  DD  UNIT-WORKD, SPACE- (TRK, 9 13 ) 

//SORTWK03  DD  UNIT-WORKD , SPACE- (TRK , 9 1 3 ) 

//SORTWK04  DD  UNIT-WORKD, SPACE- (TRK , 9 1 3 ) 

//SORTWK05  DD  UNIT-WORKD , SPACE- (TRK , 9 1 3 ) 

//SORTWK06  DD  UNIT-WORKD , SPACE- (TRK ,913) 


02880001 

02890001 

02900001 

02910001 

02920001 

02930001 

02940001 

02950001 

02960001 

02970001 

02980001 

02990001 

03000001 

03010001 

03020001 

03030001 

03040001 

03050001 

03060001 

03070001 

03080001 

03090001 

03100001 

03110001 

03120001 

03130001 

03140001 

03150001 

03160001 

03170001 

03180001 

03190001 

03200001 

03210001 

03220001 

03230001 

03240001 

03250001 

03260001 

03270001 

03280001 

032900C1 

03300001 

03310001 

03320001 

03330001 

03340001 

03350001 

03360001 

03370001 

03890002 

03900001 

03910001 

03920001 

03930001 

03940001 

03950001 

03960001 

03970001 

03980001 

03990001 

04000001 

04010001 

04020001 

04030001 

04040001 


X 


COBACK 

* 

*  Dl- ACCUMULATE  QTY ,  WGT,  AMD  COSTS 
D1 

*  H20, 1  SERVICE  CODE 

IF  147  EQ  'A'  OR  'B'  OR  'C'  OR  'W' 

M  'A'  TO  H20, 1 
ENDIF 

IF  147  EQ  'N'  OR  'P'  OR  'Q'  OR  'R'  OR  'V'  OR  'L'  OR  'M'  OR  'Z' 

M  'N'  TO  H20, 1 
ENDIF 

IF  147  EQ  'D'  OR  'E'  OR  ' F '  OR  '  J  ' 

M  'F'  TO  H20, 1 
ENDIF 

*  H30, 10  MRO  QTY 
ADD  193,5  TO  H30, 10 

*  M  5  0 , 10  PWR  QTY 

*  H70 , 10  PWR  DISPOSAL  QTY  WITH  2  DECIMAL  PLACES 
IF  H20, 1  EQ  'A' 

IF  168,3  EQ  ' 3AA '  OR  ' WR2 ' 

ADD  193,5  TO  H50, 10 

MULTIPLY  3  BY  193,5  GIVING  H90,6 

ADD  H90 , 6  TO  H70, 10 

ENDIF 

IF  H20, 1  EQ  'N' 

IF  168,1  EQ  'P' 

ADD  193,5  TO  H50 , 10 

MULTIPLY  5  BY  193,5  GIVING  H90,6 

ADD  H90, 6  TO  H70, 10 

ENDIF 

IF  H2  0 , 1  EQ  'N' 

IF  168,3  EQ  '714' 

ADD  193,5  TO  H50, 10 
ADD  193,5  TO  H70.8 

ENDIF 

IF  H20, 1  EQ  'F' 

IF  168,3  EQ  '262'  OR  '596' 

ADD  193 , 5  TO  H50, 10 
ADD  193,5  TO  H70.8 

ENDIF 

IF  H  2  0 , 1  EQ  ' F ' 

IF  168,3  NE  '262' 

IF  168,3  NE  '596' 

IF  168, 3  NE  ' 

ADD  193 , 5  TO  H50 , 10 

MULTIPLY  25  BY  193,5  GIVING  H90,6 

ADD  H90, 6  TO  H70, 10 

ENDIF 

»  H100.10  MROWGT 

*  H200 , 10  SHIPWGT 

*  H120.10  TRANCOST  2  DECIMAL  PLACES 
ADD  203,6  TO  H200, 10 

IF  180,1  EQ  'A'  OR  'B'  OR  'D'  OR  'J'  OR  'K'  OR  'N'  OR  'Q'  OR  'S'  OR 
ADD  203 , 6  TO  H100, 10 
ADD  181,7  TO  H120 , 10 
ENDIF 

IF  180,1  EQ  'U'  OR  'V'  OR  '5' 

ADD  203 , 6  TO  H100, 10 
ADD  181,7  TO  H120 , 10 
ENDIF 

IF  180, 1  EQ  'G' 

ADD  203,6  TO  H100, 10 
MULTIPLY  24  BY  203,6  GIVING  H140,6 
ADD  H 1 4 0 , 6  TO  H120, 10 
ENDIF 

IF  180,1  EQ  'H' 


>  02220001 
02230001 
02240001 
02250001 
02260001 
02270001 
02280001 
02290001 
02300001 
02310001 
02320001 
02330001 
02340001 
02350001 
02360001 
02370001 
02380001 
02390001 
02400001 
02410001 
02420001 
02430001 
02440001 
02450001 
02460001 
02470001 
02480001 
02490001 
02500001 
02510001 
02520001 
02530001 
02540001 
02550001 
02560001 
02570001 
02580001 
02590001 
02600001 
026  lOOOI 
02620001 
02630001 
02640001 
02650001 
C2660001 
0267000 1 
02680031 
02690001 
02700001 
02710001 
02720001 
02730001 
'T'  02740001 
0275D001 
02760001 
02770001 
02780001 
02790001 
02800001 
02810001 
02820001 
02830001 
02840001 
02850001 
'  02860001 
02870001 


1  A 


//SYS  IN  DD  * 

SORT  FIELDS- ( 1 , 13 ,CH, A) 

END 

/* 

//STEPS  EXEC  P CM— ATJ 3  1C 
//SYSPRINT  DD  SYSOUT-* 

//SYSUDUMP  DD  SYS OUT-* 

//SYSUT1  DD  DSN-GOR.  BAKER.  P8016SN,  DISP- (SHR,  CATL-G) 

//SYSUT1A  DD  DSN-GOR. BAKER. P8016AD, DISP-SHR 
//SYSUT2  DD  DSN-GOR. BAKER. P8016DN, 

//  UNIT— 3380, DISP— ( NEW , CATLG , DELETE ) , VOL-SER-WORKDS , 

//  DCB-(LRECL=169,BLKSIZE-23322,RECFM«FB) , 

//  SPACE-(TRK, (100,100) ,RLSE) 

//SYSIN  DD  * 

NOREAD 

READ 

READA 

*  LI  MAINLINE 
LI 

IF  55,9  EQ  ZEROS 

M  '000C11280'  TO  N55,9 
ENDIF 

IF  49,6  EQ  ZEROS 

M  '001604 '  TO  N49, 6 
ENDIF 

IF  43,6  EQ  ZEROS 

M  ' 001334  '  TO  N43 , 6 
ENDIF 

IF  Nl, 13  EQ  A1 , 13 

MOVE  1  TO  R1 , 146 
MOVE  A14  TC  R 14  7 , 5 
MOVE  A19  TO  R152.5 
MOVE  A24  TO  R157.6 
MOVE  A3 0  TO  R163 , 7 
W2 

READ 
GO  1 
ENDIF 

IF  Nl  , 13  LT  A1 , 13 
MOVE  1  TO  Rl, 146 
MOVE  ZEROS  TO  R147,5 
MOVE  ZEROS  TO  R152 , 5 
MOVE  '000082'  TO  R157.6 
MOVE  '0000910'  TO  R163,7 
W2 

READ 
GO  1 
ENDIF 

IF  N1.13  GT  A 1 ,  1 3  READA  ENDIF 
GO  1 

/* 

//STEP7  EXEC  PGM-ATJ9 1U 
//SYSPRINT  DD  SYSOUT-* 

//SYSUDUMP  DD  SYSOUT-* 

//SYSUT1  DD  DSN-GOR. BAKER. P8016DN, DISP-(SHR) 

//SYSUT2  DD  DSN-GOR. BAKER. P8016ND, 

//  S  PACE= (TRK ,  (12,50)  , RLSE)  , DIS P- ( OLD , KEEP)  , 

//  UNIT-3380, VOL-SER-DORO02 , DCB= ( LRECL-163 , RECFM-FB , BLKSI ZE=2 3 4 7 2 ) 

//SYSIN  DD  * 

M  1  TO  1,156 

SUBTRACT  152,5  FROM  147,5  GIVING  HI, 5 
M  HI  TO  147,5 
M  157  TO  H157 , 6 

ADD  H 1 57 , 7  TO  163,7  GIVING  H10,7 
M  H10  TO  157,7 


04050001 

04060001 

04070001 

04080001 

04090002 

04100001 

04110001 

04120001 

04130001 

04140001 

04150001 

04160001 

04170001 

04180001 

04190001 

04200001 

04210001 

04220001 

04230001 

04240001 

04250001 

04260001 

04270001 

04280001 

04290001 

04300001 

04310001 

04320001 

04330001 

04340001 

04350001 

04360001 

04370001 

04380001 

04390001 

04400001 

04410001 

04420001 

04430001 

04440001 

04450001 

04460001 

04470001 

04480001 

04490001 

04500001 

04510001 

04520001 

04530001 

04540001 

04550001 

04560001 

04880002 

04890001 

04900001 

04910001 

04920001 

04930003 

04940001 

04950001 

04960001 

04970001 

04980001 

04990001 

05000001 

05010001 


W2 

/* 

// 


05020001 

05030001 

05040003 


J-7 


APPEND  LX  K 


COK  .  BAKER .  .JCI  ( P_8 0  1  6_B)  Code 


/ /GOR600 1 C  JOB  (6001, COR) , 'BAKER' , MSGCLASS-V , CLASS-6 , NOTIFY-GOR600 1 
/ /STEP1  EXEC  PGM-SELCOP, PARM-S 
//SYSUDUMP  DD  SYSOUT-* 

//SYSOUT  DD  SYSOUT-* 

//SYSUT1  DO  DSN— SAN  .  DATA .  UAC780 1 ,  DI S  P=SHR  , 

//  DCB-  ( I.RECL-14  4  ,  BLKSI  ZF.-2  3  3  28,  RECFM=FB ,  DEN-3 )  , 

//  LABEL-  ( 1 ,  SL,  ,  EXPDT-9.8000)  , UNIT-TAPE, 

//  VOL-SER- ( 016278 , 0159  36,027885,016871,016699,016378,016444,016067, 
//  01c:-  ^.16  340, 016356, 002203) 

//SYSU7-  X!  DSN’-GOR.  BAKER.  P8016B0, 

//  DI S 1  NEW, CATLG, DELETE) , UNIT-TAPE, LABEL-RETPD-99, VOL-(, , ,12) 
//SYSIN  uD  * 

RANGE  O'.  0301  9999999 

/* 

//STEP2  VA'  ..  PGM— AT J 9 1U  ,  REGION-99  OK 
//SYS PHI  NO  l  :>  SYSOUT-* 

//SYSUDUM 11  !">  JYSOUT-* 

//SYSOUT  .  YSOUT-* 

//SYSUT1  CD  :  :5N=GOR . BAKER. P8016B0, DISP-SHR, 

//  DCB- ( LRECL-  - 14  4 , BLKSIZE-2 3 3 28 , RECFM-FB, DEN-3 ) , 

//  LABEL- ( 1 ,  SL, , EXPDT-98000) , UNIT-TAPE 

/ /SYSUT2  DD  DSN-GOR .BAKER. P8016B,DISP- (NEW, CAT LG , DELETE) , 

//  DCE-(LR£CL-120,BLXSI2E=23400, RECFM-FB, DEN-4) , 

//  LABEL-RETPD- 180 , UNIT-TAPE , 

//  VOL-(  ,  ,  ,  12) 

//SORTPARM  DD  * 

MSG-AP 

/ /SORTWKO l  DD  l;  IT-WORKD, SPACE- (TRK, 912) 

//SORTWK02  DD  L’N  IT-WORKD ,  SPACE-  (TRK ,912) 

//SORTWKO 3  DD  UN  I T-WORKD , S PACE- ( TRK , 9 1 2 ) 

//SORT WK04  DD  L"  T-WORKD , S PACE- (TRK , 912) 

/ /SOPTWK05  DD  UN’  ' T-WORKD ,  S PACE-  ( TRK ,  9 1 2  ) 

//SORTWK06  DD  U! ’  L T-WORKD , S PACE- (TRK , 9 1 2 ) 

//SYS  1 N  DD  * 

SORT  FIELDS- (7  ,  , CH, A) 

RECOP D  LRECL* 12 
PHASE  INPUT 
IF  31,13  NUMERIC 
H  25  TO  1,10 
RELEASE 
F.Nl) I  F 

PHASE  OUTPUT 
move  i  to  i ,  i r. 

W2 

/* 

//STEP3  EXEC  PC.'.  ATJ  9 1U  ,  REG  I  ON- 9  9  OK 
//SYSPRINT  DD  '  -  OUT- * 

//SYSUDUMP  DD  LiSOUT-* 

//SYSOUT  DD  SYSOUT-* 

//SYSUT1  DD  DSN-GOR. BAKER. P8016B, DISP-SHR 

//SYSUT2  DO  DSN-GOR . BAKER . P8016BS , DISP- (NEW, CAT LG , DELETE) , 

//  DCB- ( LRECL— 1 9 , BLKS IZE-23465, RECFM-FB) , 

//  LABEL-RETPD-180, UNIT-TAPE, 

//  VOL=( , , , 10) 

//50RTPARM  DD  * 

MSG-AP 

//SORTWKO 1  DD  UN IT-WORKD , SPACE- (TRK , 9 1 2 ) 

//SORTWKO 2  DD  UNIT-WORKD, SPACE- (TRK , 9 12 ) 

//SORTWKO 3  DD  UNIT-WORKD , SPACE- (TRK , 9 12 ) 

//SORTWK04  DD  UNIT-WORKD, SPACE- (TRK, 9 12 ) 

//SORTWK05  DD  UNIT-WORKD, S PACE- (TRK , 9 1 2 ) 

/ /SORTWK06  DD  UNIT-WORKD , SPACE- (TRK , 9 12 ) 

//SYSIN  DD  * 

SORT  F I  ELDS- ( l , 1 3 , CH , A) 

RECORD  LRECL- 19 
PHASE  INPUT 


00010022 

00010120 

00010220 

00010320 

00010420 

00010520 

00010620 

00010720 

00010820 

00010920 

00011020 

00011120 

00011220 

00011320 

00011421 

00011520 

00011620 

00011720 

00011820 

00011920 

00012022 

00012120 

00012220 

00012320 

00012420 

00012520 

00012620 

00012720 

00012820 

00012920 

00013020 

00013120 

00013220 

00013320 

00013420 

00013520 

00013620 

00013720 

00013820 

00013920 

00014020 

00014120 

00014220 

00014320 

00014420 

00017521 

00017620 

00017720 

00017820 

00017920 

00018020 

00018120 

00018320 

00018420 

00018520 

00018620 

00018720 

00018820 

00018920 

00019020 

00019120 

00019220 

00019320 

00019420 

00019520 

00019620 


K-  1 


M  'G'  TO  19,1 

00019720 

IF  47,7  EQ  ' QTY  ADJ ' 

00019820 

IF  39,2  EQ  'LL' 

00019920 

M  ' L'  TO  19,1 

00020020 

ENDIF 

00020120 

IF  68,5  LT  '99999' 

00020220 

IF  36,3  EQ  ' XR1 '  OR  'XR3  ' 

00020320 

M  1  TO  1,13 

00020420 

M  68  TO  14,5 

00020520 

RELEASE 

00020620 

ENDIF 

00020720 

IF  68,5  LT  '99999' 

00020820 

IF  36,3  EQ  ' XA1 ' 

00020920 

IF  47,7  EQ  'QTY  ADJ' 

00021020 

M  1  TO  1,13 

00021120 

M  68  TO  14,5 

00021220 

RELEASE 

00021370 

ENDIF 

00021420 

PHASE  OUTPUT 

00021520 

MOVE  1  TO  1,19 

00021620 

W2 

00021720 

/A 

00021820 

//STEP4  EXEC  PGM=ATJ91U 

00021921 

//SYSPRINT  DD  SYSOUT=* 

00022020 

//SYSUT1  DD  DSN-GOR. BAKER. P8016BS , DISP-SKR 

00022120 

//SYSUT2  DD  DSN-GOR. BAKER. P801 6BA , DISP- (NEW , CATLG , DELETE) , 

00022220 

//*  UNIT-3  3 80, VOL-SER-WORKWS, SPACE- (TRK,  (30,100)  , RLSE)  , 

00022320 

//  UNIT-TAPE , LABEL=RETPD=1 8  0 , VOL= (  ,  ,  ,9) , 

00022422 

//  DCB=(LRECL=23, BLKSIZE-2 3 4 60 , RECFM-FB) 

00022520 

//SYSIN  DD  * 

00022620 

*  MAINLINE 

00022720 

IF  EOJ 

00022820 

DO  2  EOJ  ENDIF 

00022920 

00023020 

IF  SYSUT1  -  1 

00023120 

M  1  TO  HI, 13  ENDIF 

00023220 

00023320 

IF  1,13  NE  HI, 13 

00023420 

DO  2 

00023520 

M  1  TO  HI, 13  ENDIF 

00023620 
000: J720 

DO  1 

000  3820 

COBACK 

00'  .<3920 

ft 

00024020 

•  D1 -ACCUMULATE  DISPOSAL  QTY  BY  NSN 

00024120 

• 

00024220 

01 

00024320 

* 

00024420 

IF  14,5  NUMERIC 

00024 c  1 

M  14  TO  H 1 4 , 5 

00024'  0 

ELSE 

000247. C 

M  ZEROS  TO  H 1 4 , 5 

00024827 

ENDIF 

000249  J 

IF  19,1  EQ  'L' 

00025020 

SUBTRACT  HI  4, 5  FROM  H100,10 

00025120 

ELSE 

0002  5  2 r  • 

ADD  HI  4 , 5  TO  H100, 10 

ooo;  j2< 

ENDIF 

0002  542( 

EXIT 

000255. 

* 

0002562  3 

*  D2 -WRITE-NSN  AND  DISPOSAL  QTY 

OC  025720 

* 

Ot  325820 

D2 

00025920 

00026020 

IF  H100 , 10  LT  ZEROS 

00026120 

M  ZEROS  7  0  ir.00,10 

u0026220 

K-2 


END  IF 

M  HI  TO  Rl, 13 
M  H 1 0  0  TO  R 1  -1  ,  1  0 
W2 

M  ZEROS  TO  H100, 10 
EXIT 

/* 

//STEPS  EXEC  PGM-ATJ91U 
/  .'SYS PRINT  00  SYSOUT=* 

//SYSUDUMP  C"  GYSOUT--* 

//SYSUT1  DNN-GOR.  BAKER.  P8016ND,  DISP*SHR 

//SYS  DTI  A  ii'O  DSN-=GOR  .  BAKER .  P8016BA,  DISP=*SKR 
//SYSUT2  DD  DSN=GOR. BAKER. P8016NB, 

//  UNIT=3380 , D!SP= (NEW, CATLG ,  DELETE) , VOL-SER-WORXWS , 

//  DCB= ( LRFCL-  .73, BLKSIZE=2  3355, RECFM=FB)  , 

//  SPACE=(TRK,  <?1, 100) ,RLSE) 

//SYSIN  DO  * 

NOREAD 

READ 

READA 

*  LI  MAINLINE 
LI 

I  F  EOJ 

P  ' NUMBER  OF  NS NS  WITHOUT  DISPOSALS  =' 

P  H 1 0  0 , 10 

EOJ 

IF  N 1 , 1 3  EQ  A1 , 1 3 
MOVE  1  TO  Rl ,  10  . 

MOVE  A 14  TO  R164 ,  10 
W2 

READ 
GO  1 
ENOIF 

IF  N  1  , 1 3  LT  A 1 ,  1 3 

MOVE  1  TO  R 1 , 1 6 1 
MOVE  "EROS  TO  HI  04, 10 

W2 

READ 

ADD  1  TO  H100 , 1 ' 

GO  1 
ENDIF 

IF  N 1  ,  1 3  GT  A1  ,  13  l-SADA  ENDIF 
GO  1 

/* 

//STEP6  EXEC  FOR i V  C LG , REG ION-2000K 
//FORT. SYSIN  DD  * 

INTEGER  N  IC"0  IADQ 

DOUBLE  PRECISION  ADQ,  QFD,  DISPQ,  DISPR,  PDISP,  UPRICE,  MADQ 
REAL  NPWR,  irr'JBE,  UWT,  SLM,  RPWR,  TRANH 
CHARACTER* 4 2  A1 
CHARACTER*  If!  A2 
CHARACTER*9  \3 
CHARACTER* 17  A4 
CHARACTER* 9  A5 
C  LOOP  THRU  NSNS 

DO  90°  N=l, 99999 

READ (10, 10, END-920) A1 , UCUBE , UWT , UPRICE, SLM, A2, MADQ , A3 , 

♦  XDQ, A4 , QFD, A5, RPWR, NPWR, TRANH, DISPQ 

10  FORMAT (A4 2, F6 . 3, F6. 2, F9 . 2 , F3 . 1 , A1 8 , F9 . 1 , A9 , F9 . 0 , A17 , F9 . 0 , A9 , 

+  F5.4,F5.4,F7.4,F10.0) 

IF(ADQ.EQ. 0.0) THEN 
ADQ=QFD»4 . 0 
END  IF 

I F (ADQ . GT .0.0) THEN 

DISPR-2 . 0*DISPQ/ADQ 


00026320 

00026420 

00026520 

00026620 

00026720 

00026820 

00026920 

00027021 

00027120 

00027220 

00027320 

00027420 

00027520 

00027620 

00027720 

00027820 

00027920 

00028020 

00028120 

00028220 

00028320 

00028420 

00028520 

00028620 

00028720 

00028820 

00028920 

00029020 

00029120 

00029220 

00029320 

00029420 

0C029520 

00029620 

00029720 

00029870 

00029920 

00030020 

00030120 

00030220 

00030320 

00030420 

00030520 

00030620 

00030720 

00030821 

00030920 

00031020 

00031120 

00031220 

00031320 

00031420 

00031520 

00031620 

00031720 

00031820 

00031920 

00032020 

00032120 

00032220 

00032320 

00032420 

00032520 

00032620 

00032720 

00032820 


END  IF 

I F ( ADQ . EQ . 0 . 0 . AND . DISPQ . GT . 0 . 0 ) THEN 
DISPR=1. 0 
END  IF 

IF (ADQ. EQ.O.O.AND.DISPQ.LT. 1.0) THEN 
DISPR-0. 0 
END  IF 

IF ( DISPR. GT . 1.0) THEN 
DISPR=1 . 0 
END  IF 

IF (DISPR.LT. 0.0) THEN 
DISPR=0 . 0 
END  IF 

IF ( DISPR. GT.NPWR) THEN 
PDISP=DISPR-NPWR 

ELSE 

PDISP-0 . 0 
END  IF 

IF ( PDISP. GT. 1 . 0) THEN 
PDISP=1.0 
END  IF 

IF (PDISP. LT. 0 . 0) THEN 
PDISP=0 . 0 
END  IF 

IQFD=INT(QFD) 

IADQ^INT (ADQ) 

WRITE(8, 30) 

-t-  A1 , UCUBE , UWT, UPRICE , SIM, A2 , MADQ , A3 , 

+  IADQ , A4 , IQFD , A5 , RPWR , NPWR , TRANH , PDISP 

30  FORMAT (A42(F7.3(F7.2,F10.2(F4.1,A18JF10.1,A9,I9,A17,I9,A9, 

+  F6.4 , F6.4 , F8 . 4 , F8 . 6) 

000  CONTINUE 
920  STOP 
END 

/* 

//GO . FT10F001  DD  DSN-GOR. BAKER. P8016NB, DISP-SHR 

//GO. FT08F001  DD  DSN=GOR . BAKER . P8016PD , DISP- (NEW , CATLG , DELETE) , 

//  UNIT=*3  380  ,  SPACE*  (TRK,  (20,29)  ,  RLSE)  ,  VOL-SER-WORKWS  , 

//  DCB=(RECFM=FB,LRECLr=179,  BLKSIZE-2  34  49) 

//* 

//STEP7  EXEC  SPSSX,CYLS='10, 180' 

TITLE  'GOR. BAKER. P8016PD  FREQUENCY  REPORT' 

DATA  LIST  FILE  =  INFILE  / 

LDISP  35-39 
SHM  40-41 
SIM  67-70 
BOQ  71-79 
IAQ  80-88 
MADQ  89-98 
OWRMRP  99-107 
ADQ  108-116 
ADF  117-123 
PCM  124-126 
ROP  127-133 
QFD  134-142 
QFR  143-151 
RPWR  152-157 
NPWR  158-163 
TRANH  164-171 
PDISP  172-179 

SUBTITLE  'PEACETIME  DISPOSAL  PROB  STEPWISE  REGRESSION' 

REGRESSION  VARI ABLES=  LDISP  TO  PDISP 

/CRITERIA-PIN( .01)  POUT(.25)  TOLERANCE (. 01) 

/DEP=PDISP  /STEPWISE 
/PART I ALP LOT 
FINISH 


00032920 

00033020 

00033120 

00033220 

00033320 

00033420 

00033520 

00033620 

00033720 

00033820 

00033920 

00034020 

00034120 

00034220 

00034320 

00034420 

00034520 

00034620 

00034720 

00034820 

00034920 

00035020 

00035120 

00035220 

00035320 

00035420 

00035520 

00035620 

00035720 

00035820 

00035920 

00036020 

00036120 

00036220 

00036320 

00036420 

00036520 

00036622 

00036720 

00036P20 

00036  )21 

0003' 320 

00037120 

00037220 

00037320 

00037420 

00037520 

00037620 

00037721. 

00037820 

00037920 

00038020 

00038120 

00038220 

00038320 

00038/ :o 

00038320 

00038620 

00038720 

00038820 

00038920 

00039020 

00039120 

00039220 

00039320 

00039420 


//INFILE  DO  OSN-GOR . BAKER . P80 16PD, 

//  DISP=SHR 

//* 

//STEP8  EXEC  PGM=ATJ91U 
//SYSPRINT  DD  SYSOUT** 

//SYSUDUWP  DD  SYSOUT=* 

//SYSUT1  DD  DSN=GOR. BAKER. P8016PD, DISP= (SHR) 

//SYSUT2  DD  DSN=GOR. BAKER. P8016DB, 

//  SPACE--  ( TRK  ,  (6,  10)  ,  RLSE )  , DISP* (OLD, KEEP)  , 

//  UNIT1-  JBD, VOL-SER=DORO02, DCB” (LRECL-77 , BLKSI ZE=2 34 08 , RECFH-FB) 
//SYS  If'  DD  * 

M  1  TO  1,13 
M  14  TO  14,2 
M  16  TO  16, 19 
M  4  0  TO  3  5,2 
M  50  TO  37 , 7 
M  67  TO  44 , 4 
M  117  TO  48,7 
M  124  TO  55,3 
M  152  TO  58,20 
W2 
/* 

// 


0 0039520 

00039620 

0 0039721 

00039821 
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00040017 

00 040117 

00040217 

00040322 

00040417 

00040517 

00040617 

00040717 

00040817 

00040917 

00041017 

00041117 

00041217 

00041317 

00041417 
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00041618 

00041718 
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